
########################
# Descriptives of sample
########################

# Exploratory Analysis ---------------------------------------------------------
EA_desc <- data_EA_cov %>% 
  dplyr::select(age, sex_fem, education_num, ideology, 
                pol_interest, pos_id_mean, neg_id_mean) %>% 
  dplyr::rename(education = education_num, sex=sex_fem) %>% 
  describe() %>% 
  dplyr::select(n, mean, sd, median, min, max) %>% 
  dplyr::rename(N=n, Mean=mean, SD=sd, Mdn = median, Min=min, Max=max)%>%
  knit_print(skimr_digits = 2)
stargazer(EA_desc,type="latex", digits = 2, digits.extra = 0, summary = F, style = "apsr")

# Confirmatory  Analysis ---------------------------------------------------------
CA_desc <- data_CA_cov %>% 
  dplyr::select(age, sex_fem, education_num, ideology, 
                pol_interest, pos_id_mean, neg_id_mean) %>% 
  dplyr::rename(education = education_num, sex=sex_fem) %>% 
  describe() %>% 
  dplyr::select(n, mean, sd, median, min, max) %>% 
  dplyr::rename(N=n, Mean=mean, SD=sd, Mdn = median, Min=min, Max=max)%>%
  knit_print(skimr_digits = 2)
stargazer(CA_desc,type="latex", digits = 2, digits.extra = 0, summary = F, style = "apsr")

# Meta-Analysis ----------------------------------------------------------------
meta_desc <- meta %>% 
  dplyr::select(age, sex_fem, education_num, ideology, 
                pol_interest, pos_id_mean, neg_id_mean,
                self_esteem, n, o, a, e, c,
                dogmatism, sdo, nfc) %>% 
  dplyr::rename(education = education_num, 
                sex=sex_fem, 
                neuroticism= n,
                agreeableness=a, openness=o, conscientiousness=c, extroversion=e,
              ) %>% 
  describe() %>% 
  dplyr::select(n, mean, sd, median, min, max) %>% 
  dplyr::rename(N=n, Mean=mean, SD=sd, Mdn = median, Min=min, Max=max)%>%
  knit_print(skimr_digits = 2)
stargazer(meta_desc,type="latex", digits = 2, digits.extra = 0, summary = F, style = "apsr")
